perm filename ADIS.DIF[MF,DEK] blob
sn#557227 filedate 1981-01-22 generic text, type T, neo UTF8
1) ADIS.SAI[MF,DEK] and 2) ADIS.SAI[MF,DRF] 1-22-81 11:20 pages 1,1
**** File 1) ADIS.SAI[MF,DEK]/1P/17L
1) C00040 ENDMK
1) C⊗;
**** File 2) ADIS.SAI[MF,DRF]/1P/17L
2) C00041 ENDMK
2) C⊗;
***************
**** File 1) ADIS.SAI[MF,DEK]/5P/50L
1) adisLIMITS(screenxmin,screenxmax,screenymin,screenymax);
1) comment bitmap region;
**** File 2) ADIS.SAI[MF,DRF]/5P/50L
2) adisLIMITS(screenxmin,screenxmax,screenymin+1,screenymax+1);
2) comment bitmap region;
***************
**** File 1) ADIS.SAI[MF,DEK]/14P/78L
1) get←point(4,rast[xw],-1);
1) adisBOUT(pdepositm);
**** File 2) ADIS.SAI[MF,DRF]/14P/78L
2) IFXMEM var!gets!rast(xtemp,xw); get←point(4,xtemp,-1);
2) ELSEC get←point(4,rast[xw],-1);
2) ENDC
2) adisBOUT(pdepositm);
***************
**** File 1) ADIS.SAI[MF,DEK]/14P/89L
1) begin xw←xw+rspan; get←point(4,rast[xw],-1);
1) end;
**** File 2) ADIS.SAI[MF,DRF]/14P/91L
2) begin xw←xw+rspan;
2) IFXMEM var!gets!rast(xtemp,xw); get←point(4,xtemp,-1);
2) ELSC get←point(4,rast[xw],-1);
2) ENDC
2) end;
***************